/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / iso / swedish.elc.z / swedish.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 30 3a 30 31 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:01 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 73 6f 2f |s-20.3/l|isp/iso/|
|000000a0| 73 77 65 64 69 73 68 2e | 65 6c 0a 3b 3b 3b 20 65 |swedish.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 73 77 65 64 69 73 68 2e |error "`|swedish.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 28 72 65 71 75 69 | 72 65 20 27 69 73 6f 2d |..(requi|re 'iso-|
|00000260| 73 79 6e 74 61 78 29 0a | 23 40 34 36 20 52 65 67 |syntax).|#@46 Reg|
|00000270| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000280| 66 6f 72 20 63 6f 6d 6d | 6f 6e 20 53 77 65 64 69 |for comm|on Swedi|
|00000290| 73 68 20 77 6f 72 64 73 | 2e 1f 0a 28 64 65 66 76 |sh words|...(defv|
|000002a0| 61 72 20 73 77 65 64 69 | 73 68 2d 72 65 20 22 5b |ar swedi|sh-re "[|
|000002b0| 20 09 5c 6e 5d 5c 5c 28 | 6f 63 68 5c 5c 7c 61 74 | .\n]\\(|och\\|at|
|000002c0| 74 5c 5c 7c 65 6e 5c 5c | 7c 7b 72 5c 5c 7c 5c 5c |t\\|en\\||{r\\|\\|
|000002d0| 5b 52 5c 5c 7c 70 7d 5c | 5c 7c 50 5c 5c 5d 5c 5c |[R\\|p}\|\|P\\]\\|
|000002e0| 7c 73 6f 6d 5c 5c 7c 64 | 65 74 5c 5c 7c 61 76 5c ||som\\|d|et\\|av\|
|000002f0| 5c 7c 64 65 6e 5c 5c 7c | 66 7c 72 5c 5c 7c 46 5c |\|den\\||f|r\\|F\|
|00000300| 5c 5c 5c 52 5c 5c 29 5b | 20 09 5c 6e 2e 2c 3f 21 |\\\R\\)[| .\n.,?!|
|00000310| 3a 3b 27 5c 22 29 7d 5d | 22 20 28 23 24 20 2e 20 |:;'\")}]|" (#$ . |
|00000320| 36 32 31 29 29 0a 23 40 | 33 35 20 54 72 61 6e 73 |621)).#@|35 Trans|
|00000330| 20 74 61 62 6c 65 20 66 | 72 6f 6d 20 53 57 41 53 | table f|rom SWAS|
|00000340| 43 49 49 20 74 6f 20 38 | 38 35 39 2e 1f 0a 28 64 |CII to 8|859...(d|
|00000350| 65 66 76 61 72 20 73 77 | 61 73 63 69 69 2d 74 6f |efvar sw|ascii-to|
|00000360| 2d 38 38 35 39 2d 74 72 | 61 6e 73 20 28 62 79 74 |-8859-tr|ans (byt|
|00000370| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 c3 1c 1d |e-code "|...\"...|
|00000380| 0c c1 57 ab 8b 0d 0c 89 | 49 88 0c 54 89 14 aa 71 |..W.....|I..T...q|
|00000390| 0d c6 c7 49 88 0d c8 c9 | 49 88 0d ca cb 49 88 0d |...I....|I....I..|
|000003a0| cc cd 49 88 0d ce cf 49 | 88 0d d0 d1 49 88 0d d2 |..I....I|....I...|
|000003b0| d3 49 88 0d d4 d5 49 88 | 0d d6 d7 49 88 0d 2a 87 |.I....I.|...I..*.|
|000003c0| 22 20 5b 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 32 |" [make-|string 2|
|000003d0| 35 36 20 3f 5c 20 20 30 | 20 69 20 73 74 72 69 6e |56 ?\  0| i strin|
|000003e0| 67 20 3f 5c 5b 20 31 39 | 36 20 3f 5c 5d 20 31 39 |g ?\[ 19|6 ?\] 19|
|000003f0| 37 20 3f 5c 5c 20 32 31 | 34 20 3f 5e 20 32 32 30 |7 ?\\ 21|4 ?^ 220|
|00000400| 20 3f 5c 7b 20 32 32 38 | 20 3f 5c 7d 20 32 32 39 | ?\{ 228| ?\} 229|
|00000410| 20 3f 5c 60 20 32 33 33 | 20 3f 5c 7c 20 32 34 36 | ?\` 233| ?\| 246|
|00000420| 20 3f 5c 7e 20 32 35 32 | 5d 20 34 29 20 28 23 24 | ?\~ 252|] 4) (#$|
|00000430| 20 2e 20 38 31 31 29 29 | 0a 23 40 31 33 37 20 43 | . 811))|.#@137 C|
|00000440| 6f 6e 76 65 72 74 20 63 | 68 61 72 61 63 74 65 72 |onvert c|haracter|
|00000450| 73 20 69 6e 20 62 75 66 | 66 65 72 20 66 72 6f 6d |s in buf|fer from|
|00000460| 20 53 77 65 64 69 73 68 | 2f 46 69 6e 6e 69 73 68 | Swedish|/Finnish|
|00000470| 2d 61 73 63 69 69 20 74 | 6f 20 49 53 4f 20 38 38 |-ascii t|o ISO 88|
|00000480| 35 39 2f 31 2e 0a 57 6f | 72 6b 73 20 65 76 65 6e |59/1..Wo|rks even|
|00000490| 20 6f 6e 20 72 65 61 64 | 2d 6f 6e 6c 79 20 62 75 | on read|-only bu|
|000004a0| 66 66 65 72 73 2e 20 20 | 60 24 27 20 61 6e 64 20 |ffers.  |`$' and |
|000004b0| 60 40 27 20 61 72 65 20 | 6e 6f 74 20 63 6f 6e 76 |`@' are |not conv|
|000004c0| 65 72 74 65 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |erted...|(defalia|
|000004d0| 73 20 27 73 77 61 73 63 | 69 69 2d 74 6f 2d 38 38 |s 'swasc|ii-to-88|
|000004e0| 35 39 2d 62 75 66 66 65 | 72 20 23 5b 6e 69 6c 20 |59-buffe|r #[nil |
|000004f0| 22 c0 19 c2 65 64 0b 23 | 29 87 22 20 5b 6e 69 6c |"...ed.#|)." [nil|
|00000500| 20 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c | buffer-|read-onl|
|00000510| 79 20 74 72 61 6e 73 6c | 61 74 65 2d 72 65 67 69 |y transl|ate-regi|
|00000520| 6f 6e 20 73 77 61 73 63 | 69 69 2d 74 6f 2d 38 38 |on swasc|ii-to-88|
|00000530| 35 39 2d 74 72 61 6e 73 | 5d 20 34 20 28 23 24 20 |59-trans|] 4 (#$ |
|00000540| 2e 20 31 30 38 37 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 1087) |nil]).#@|
|00000550| 31 32 32 20 43 61 6c 6c | 20 73 77 61 73 63 69 69 |122 Call| swascii|
|00000560| 2d 74 6f 2d 38 38 35 39 | 2d 62 75 66 66 65 72 20 |-to-8859|-buffer |
|00000570| 69 66 20 74 68 65 20 62 | 75 66 66 65 72 20 6c 6f |if the b|uffer lo|
|00000580| 6f 6b 73 20 6c 69 6b 65 | 20 53 77 65 64 69 73 68 |oks like| Swedish|
|00000590| 2d 61 73 63 69 69 2e 0a | 4c 65 61 76 65 73 20 70 |-ascii..|Leaves p|
|000005a0| 6f 69 6e 74 20 6a 75 73 | 74 20 61 66 74 65 72 20 |oint jus|t after |
|000005b0| 74 68 65 20 77 6f 72 64 | 20 74 68 61 74 20 6c 6f |the word| that lo|
|000005c0| 6f 6b 73 20 53 77 65 64 | 69 73 68 2e 1f 0a 28 64 |oks Swed|ish...(d|
|000005d0| 65 66 61 6c 69 61 73 20 | 27 73 77 61 73 63 69 69 |efalias |'swascii|
|000005e0| 2d 74 6f 2d 38 38 35 39 | 2d 62 75 66 66 65 72 2d |-to-8859|-buffer-|
|000005f0| 6d 61 79 62 65 20 23 5b | 6e 69 6c 20 22 c0 19 c2 |maybe #[|nil "...|
|00000600| 0b c4 c0 23 ad 82 c5 20 | 29 87 22 20 5b 74 20 63 |...#... |)." [t c|
|00000610| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00000620| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000630| 64 20 73 77 65 64 69 73 | 68 2d 72 65 20 6e 69 6c |d swedis|h-re nil|
|00000640| 20 73 77 61 73 63 69 69 | 2d 74 6f 2d 38 38 35 39 | swascii|-to-8859|
|00000650| 2d 62 75 66 66 65 72 5d | 20 34 20 28 23 24 20 2e |-buffer]| 4 (#$ .|
|00000660| 20 31 33 36 34 29 20 6e | 69 6c 5d 29 0a 28 62 79 | 1364) n|il]).(by|
|00000670| 74 65 2d 63 6f 64 65 20 | 22 c0 11 c2 c3 21 ac 82 |te-code |"....!..|
|00000680| c4 13 c5 c6 0b 5c 22 13 | c4 87 22 20 5b 73 77 61 |.....\".|.." [swa|
|00000690| 73 63 69 69 2d 74 6f 2d | 38 38 35 39 2d 62 75 66 |scii-to-|8859-buf|
|000006a0| 66 65 72 2d 6d 61 79 62 | 65 20 72 6d 61 69 6c 2d |fer-mayb|e rmail-|
|000006b0| 73 68 6f 77 2d 6d 65 73 | 73 61 67 65 2d 68 6f 6f |show-mes|sage-hoo|
|000006c0| 6b 20 62 6f 75 6e 64 70 | 20 6e 65 77 73 2d 67 72 |k boundp| news-gr|
|000006d0| 6f 75 70 2d 68 6f 6f 6b | 2d 61 6c 69 73 74 20 6e |oup-hook|-alist n|
|000006e0| 69 6c 20 61 70 70 65 6e | 64 20 28 28 22 5e 73 77 |il appen|d (("^sw|
|000006f0| 6e 65 74 2e 22 20 2e 20 | 73 77 61 73 63 69 69 2d |net." . |swascii-|
|00000700| 74 6f 2d 38 38 35 39 2d | 62 75 66 66 65 72 2d 6d |to-8859-|buffer-m|
|00000710| 61 79 62 65 29 29 5d 20 | 33 29 0a 23 40 33 30 20 |aybe))] |3).#@30 |
|00000720| 38 38 35 39 20 74 6f 20 | 53 57 41 53 43 49 49 20 |8859 to |SWASCII |
|00000730| 74 72 61 6e 73 20 74 61 | 62 6c 65 2e 1f 0a 28 64 |trans ta|ble...(d|
|00000740| 65 66 76 61 72 20 38 38 | 35 39 2d 74 6f 2d 73 77 |efvar 88|59-to-sw|
|00000750| 61 73 63 69 69 2d 74 72 | 61 6e 73 20 28 62 79 74 |ascii-tr|ans (byt|
|00000760| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 5c 22 c3 1c 1d |e-code "|...\"...|
|00000770| 0c c1 57 ab 8b 0d 0c 89 | 49 88 0c 54 89 14 aa 71 |..W.....|I..T...q|
|00000780| 0d c6 c7 49 88 0d c8 c9 | 49 88 0d ca cb 49 88 0d |...I....|I....I..|
|00000790| cc cd 49 88 0d ce cf 49 | 88 0d d0 d1 49 88 0d d2 |..I....I|....I...|
|000007a0| d3 49 88 0d d4 d5 49 88 | 0d d6 d7 49 88 0d d8 d9 |.I....I.|...I....|
|000007b0| 49 88 0d da db 49 88 0d | 2a 87 22 20 5b 6d 61 6b |I....I..|*." [mak|
|000007c0| 65 2d 73 74 72 69 6e 67 | 20 32 35 36 20 3f 5c 20 |e-string| 256 ?\ |
|000007d0| 20 30 20 69 20 73 74 72 | 69 6e 67 20 31 36 34 20 | 0 i str|ing 164 |
|000007e0| 3f 5c 24 20 31 39 36 20 | 3f 5c 5b 20 31 39 37 20 |?\$ 196 |?\[ 197 |
|000007f0| 3f 5c 5d 20 32 30 31 20 | 3f 5c 40 20 32 31 34 20 |?\] 201 |?\@ 214 |
|00000800| 3f 5c 5c 20 32 32 30 20 | 3f 5e 20 32 32 38 20 3f |?\\ 220 |?^ 228 ?|
|00000810| 5c 7b 20 32 32 39 20 3f | 5c 7d 20 32 33 33 20 3f |\{ 229 ?|\} 233 ?|
|00000820| 5c 60 20 32 34 36 20 3f | 5c 7c 20 32 35 32 20 3f |\` 246 ?|\| 252 ?|
|00000830| 5c 7e 5d 20 34 29 20 28 | 23 24 20 2e 20 31 38 32 |\~] 4) (|#$ . 182|
|00000840| 34 29 29 0a 23 40 37 32 | 20 43 6f 6e 76 65 72 74 |4)).#@72| Convert|
|00000850| 20 63 68 61 72 61 63 74 | 65 72 73 20 69 6e 20 62 | charact|ers in b|
|00000860| 75 66 66 65 72 20 66 72 | 6f 6d 20 49 53 4f 20 38 |uffer fr|om ISO 8|
|00000870| 38 35 39 2f 31 20 74 6f | 20 53 77 65 64 69 73 68 |859/1 to| Swedish|
|00000880| 2f 46 69 6e 6e 69 73 68 | 2d 61 73 63 69 69 2e 1f |/Finnish|-ascii..|
|00000890| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 38 38 35 39 |.(defali|as '8859|
|000008a0| 2d 74 6f 2d 73 77 61 73 | 63 69 69 2d 62 75 66 66 |-to-swas|cii-buff|
|000008b0| 65 72 20 23 5b 6e 69 6c | 20 22 c0 65 64 09 23 87 |er #[nil| ".ed.#.|
|000008c0| 22 20 5b 74 72 61 6e 73 | 6c 61 74 65 2d 72 65 67 |" [trans|late-reg|
|000008d0| 69 6f 6e 20 38 38 35 39 | 2d 74 6f 2d 73 77 61 73 |ion 8859|-to-swas|
|000008e0| 63 69 69 2d 74 72 61 6e | 73 5d 20 34 20 28 23 24 |cii-tran|s] 4 (#$|
|000008f0| 20 2e 20 32 31 32 31 29 | 20 22 2a 22 5d 29 0a 28 | . 2121)| "*"]).(|
|00000900| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c0 12 c3 |byte-cod|e ".....|
|00000910| c4 21 87 22 20 5b 38 38 | 35 39 2d 74 6f 2d 73 77 |.!." [88|59-to-sw|
|00000920| 61 73 63 69 69 2d 62 75 | 66 66 65 72 20 6d 61 69 |ascii-bu|ffer mai|
|00000930| 6c 2d 73 65 6e 64 2d 68 | 6f 6f 6b 20 6e 65 77 73 |l-send-h|ook news|
|00000940| 2d 69 6e 65 77 73 2d 68 | 6f 6f 6b 20 70 72 6f 76 |-inews-h|ook prov|
|00000950| 69 64 65 20 73 77 65 64 | 69 73 68 5d 20 32 29 0a |ide swed|ish] 2).|
+--------+-------------------------+-------------------------+--------+--------+